;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 7/5/2011
;;;		   EDITED: 4/17/2014
;;;
(DEFUN c3difodoc ()
  (VL-LOAD-COM)
  (SETQ product_key (VLAX-PRODUCT-KEY)
        hive-path   (strcat "HKEY_LOCAL_MACHINE\\" (if vlax-user-product-key (vlax-user-product-key) (vlax-product-key)))
        release-no  (vl-registry-read hive-path "Release")
        verstr      (substr release-no 1 (vl-string-search "." release-no (+ (vl-string-search "." release-no) 1)))
  )
  (SETQ ProdStr (STRCAT "AeccXUiLand.AeccApplication." verstr))
  (SETQ *acad* (VLAX-GET-ACAD-OBJECT))
  (IF errortrap NIL (LOAD "errortrap" "\nFile ERRORTRAP.LSP not loaded! "))
  (errortrap (quote (SETQ c3d (VLA-GETINTERFACEOBJECT *acad* ProdStr))))
  (IF c3d
    (PROGN
      (SETQ C3Ddoc (VLA-GET-ACTIVEDOCUMENT c3d) aeccapp c3d)
    )
    (ALERT (STRCAT "Unable to load " ProdStr "!  Be sure you have a license to Civil 3D."))
  )
)
;;;(setq
;;;      C3D (strcat "HKEY_LOCAL_MACHINE\\" (if vlax-user-product-key (vlax-user-product-key) (vlax-product-key) ) )
;;;      C3D (vl-registry-read C3D "Release")
;;;      C3D (substr C3D 1 (vl-string-search "." C3D (+ (vl-string-search "." C3D) 1)));alt method C3D here = verstr above
;;;      C3DLand (vla-getinterfaceobject *acad* (strcat "AeccXUiLand.AeccApplication." C3D))
;;;      C3DPipe (vla-getinterfaceobject *acad* (strcat "AeccXUiPipe.AeccPipeApplication." C3D))
;;;)
;;;   (setq pipedoc (vlax-get C3DPipe 'Activedocument)
;;;      labelstyles (vlax-get pipedoc 'PipeNetworkLabelSTyles)
;;;      structlblsrtyles (vlax-get labelstyles 'StructureLabelStyles)
;;;      pipelblstyles (vlax-get labelstyles 'PipeLabelStyles)
;;;   )

;(vlax-dump-object c3d)
; IAeccApplication: interface IAeccApplication
; Property values:
;   ActiveDocument = #<VLA-OBJECT IAeccDocument 0000000057a25f20>
;   Application (RO) = #<VLA-OBJECT IAeccApplication 0000000057a330c0>
;   Caption (RO) = "AutoCAD Civil 3D 2014 - [L:\\Caro-14.01 - Caropines\\800 - Drawings\\825 As-Builts\\AB-Points.dwg]"
;   Documents (RO) = #<VLA-OBJECT IAeccDocuments 0000000057a24f00>
;   FullName (RO) = "C:\\Program Files\\Autodesk\\Autodesk AutoCAD Civil 3D 2014\\acad.exe"
;   Height = 1056
;   HWND (RO) = 10160738
;   HWND32 (RO) = 10160738
;   LocaleId (RO) = 1033
;   MenuBar (RO) = #<VLA-OBJECT IAcadMenuBar 0000000057a318f8>
;   MenuGroups (RO) = #<VLA-OBJECT IAcadMenuGroups 00000000050c7d20>
;   Name (RO) = "AutoCAD Civil 3D 2014"
;   Path (RO) = "C:\\Program Files\\Autodesk\\Autodesk AutoCAD Civil 3D 2014"
;   Preferences (RO) = #<VLA-OBJECT IAeccPreferences 0000000057a29f40>
;   StatusId (RO) = ...Indexed contents not shown...
;   VBE (RO) = #<VLA-OBJECT VBE 0000000057fc77d8>
;   Version (RO) = "19.1s (LMS Tech)"
;   Visible = -1
;   Width = 1936
;   WindowLeft = -8
;   WindowState = 3
;   WindowTop = -8
